open(BUFF,"ls ../Methylation_450 |");
while(<BUFF>)
{
	chomp($_);
	#print $_."\n";
	if($_ =~ m/Level_3/)
	{
		#print $_."\n";
		open(BUFF1,"ls ./$_/ |");
		while($line=<BUFF1>)
		{
			chomp($line);
			if($line !~ /MANIFEST/ && $line !~ /README_DCC/ && $line !~ /CHANGES_DCC/ && $line !~ /sdrf/)
			{
				system("mv ./$_/$line ./combined");
			}
		}
		
	}
}
